home *** CD-ROM | disk | FTP | other *** search
/ Virtual Top Model / Virtual Top Model - Disc 1.iso / modulos / mod-3.dxr / 00034_Boton retroceso foto.ls < prev    next >
Encoding:
Text File  |  1997-04-01  |  1.2 KB  |  40 lines
  1. on mouseUp
  2.   global sSerie, nSerie, nOrden, nMaxSerie
  3.   if rollOver(24) then
  4.     puppetSprite(24, 0)
  5.     set the member of sprite 24 to member "retro apa" of castLib "elementos graficos"
  6.     updateStage()
  7.     if nOrden > 1 then
  8.       set nOrden to nOrden - 1
  9.       set sMiembro to nOrden & "p"
  10.       set the member of sprite 28 to member sMiembro of castLib sSerie
  11.       puppetTransition(member 3 of castLib "Transiciones")
  12.       updateStage()
  13.       if getAt(lnDesFilm, nSerie) > 0 then
  14.         setAt(lnDesFilm, nSerie, getAt(lnDesFilm, nSerie) - 1)
  15.         repeat with xx = 1 to 31
  16.           set the locH of sprite nSerie to the locH of sprite nSerie + 1
  17.           updateStage()
  18.         end repeat
  19.       else
  20.         repeat with xx = 1 to 31
  21.           set the locH of sprite 8 to the locH of sprite 8 - 1
  22.           updateStage()
  23.         end repeat
  24.       end if
  25.     end if
  26.   end if
  27. end
  28.  
  29. on mouseDown
  30.   repeat while the stillDown
  31.     puppetSprite(24, 1)
  32.     if rollOver(24) then
  33.       set the member of sprite 16 to member "retro ilu" of castLib "elementos graficos"
  34.     else
  35.       set the member of sprite 16 to member "retro apa" of castLib "elementos graficos"
  36.     end if
  37.     updateStage()
  38.   end repeat
  39. end
  40.